setdisplay(240,320,32,1):paper(0xFFFFFF):ink(0):pen(0):cls
for f=1 to 20
a=100-(rnd(20000)/100)
prints("fix("+str$(a)+")="+str$(fix(a)))
next
waitkey